Nautilus 1993 August/Nautilus CD Magazine Volume 3-8 August 1993 Windows Edition.mdf/mmedia/madness/tbkmm.sbk

Asymetrix ToolBook File | 1993-03-10 | 24KB | 431 lines

Tms Rmn
Tms Rmn
\D|D|
O\D|D|%
jwJpISimPjmIeAEos
 BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM
tbkMCIchk cmd,notif,req,brk
ZretVal
sysErrorNumber
tbkmci(
syserrornumber<>0
tbkmmerrorstring(
tbkBitmapChk
        -- When
]TBKBMP.DLL standalone, you should
modify
        -- function
use the bitmap
 reporter
tbkbmperrorstring(
brk<>
--Cover functions
--These allow authors
pass
device alias instead
tbkMCIPositionWindow devAlias,windowPos,flags
Zhwnd
9("status" &&
3 && "
","")
tbkPositionWindow(
tbkMCICenterWindow
 && "
","")
tbkCenterWindow(
tbkBitmapPositionWindow
 && "
tbkBitmapCenterWindow
 && "
tbkMCIGetWindowRect
 && "
","")
tbkGetWindowRect(
tbkBitmapGetWindowRect
 && "
4s_mminit
tbkMMInitializeSystem
    -- guard against
4having been restored!
{ <>
stuff used
Hwidgets
X"tbkwin.dll"
YieldApp()
 <> 0
"TBKWIN.
xfound. Some
X may
xwork"
X"tbkdlg.
OpenDlg(
 <> 0
"TBKDLG.
readdmm
multimedia
"winhelp.exe
.hlp"
tbkmmdevices
4s_mmdevices
f("Multimedia")
c"Help"
-- stub so some
 will
 without ES boxes
checkdevice
-- General utility
-- Someday, ToolBook
Thave built-
data type checking
isNumber x
x + 0
--repair 3D
resizing them
sized
Zsnap, txCN, hi, lo
txClassName
; <>
"Repair 3D
f"&Yes"
"&No"
c"No"
sysSuspendMessages
recessed
c"3DFrame"
+ 15,
+ 15,\
+ 15,
"3DField"
"3DRect"
znothing
- 15,
- 15,\
- 15,
+ 15,
+ 15,\
+ 15,
-- Slider control
begins here
-- NOTES ABOUT IDENTIFIERS
-- s___ prefix     ->
handler
only
c"Thumb"
___setSliderLimits
4s___v, s___min, s___max, s___p
down\
prevent updating
mouse
xmoved
"HSliderThumb"
loc -
___slidePos(
"VSliderThumb"
sliderPosition
___snapSlider\
(1 -
glide
width
height
 p, s1, s2
b(0,(p - s1) /(s2 - s1))
thumb
            -- Another
controlling
OldMin
OldMax
j(1,(
b(0,p)))
"vSliderThumb"
pOffset
) * (1-p)
newPos
"hSliderThumb"
) * p
            -- Restore state
detentList
detents
catchRange
0 <>
ends
-- This initialization usually
runs ONCE, unless
app calls
tbkmmInitializeSystem
asure MME
loaded
X"mmsystem.
killtbkmmsbk
        --
private (exported, but undocumented)
    tbkmmloadextensions( )
        -- The
these are
standard
L entry points
    tbkmmversion()
        -- MCI central interface
        -- parallel
MMSYSTEM
 tbkTimerStart(
    tbkTimerStop(
 tbkTimerCapability()
        -- Utility
\    MilliSecFromMSF(
\    MilliSecFromHMS(
\    MilliSecFromSMPTE(
    MSFFromMilliSec(
    HMSFromMilliSec(
    SMPTEFromMilliSec(
-- Translation
        tbkMMTranslate(
 <> 0
"TBKMM.
link failed"
extended
support
 <> 0
-- End
Script
addmm
enterbook
checkdevice
multimedia
sized
buttonDown
enterSystem
buttonStillDown
buttonUp
author
___setSliderLimits
readdmm
tbkmmInitializeSystem
nterWindow
tbkBitmapChk
tbkBitmapPositionWindow
tbkBitmapCenterWindow
tbkMCIchk
tbkMCIGetWindowRect
tbkBitmapGetWindowRect
tbkMCIPositionWindow
tbkmmdevices
isNumber
___slidePos
tbkMCICenterWindow
sliderPosition
___snapSlider
sliderPosition
tbkMCIchk
tbkmci
tbkmmerrorstring
retVal
notif
tbkBitmapChk
tbkBitmap
tbkmmerrorstring
retVal
tbkMCIPositionWindow
status
window handle
tbkMCI
tbkPositionWindow
flags
windowPos
devAlias
tbkMCICenterWindow
status
window handle
tbkMCI
tbkCenterWindow
flags
windowPos
devAlias
tbkBitmapPositionWindow
status
window
tbkBitmap
tbkPositionWindow
flags
windowPos
devAlias
tbkBitmapCenterWindow
status
window
tbkBitmap
tbkCenterWindow
flags
windowPos
devAlias
tbkMCIGetWindowRect
status
window handle
tbkMCI
tbkGetWindowRect
flags
devAlias
tbkBitmapGetWindowRect
status
window
tbkBitmap
tbkGetWindowRect
flags
devAlias
enterSystem
tbkMMInitializeSystem
s_mminit
enterbook
enterSystem
tbkwin.dll
YieldApp
TBKWIN.DLL not found. Some widgets may not work
tbkdlg.dll
OpenDlg

TBKDLG.DLL not found. Some widgets may not work
P*readdmm
s_mminit
multimedia
winhelp.exe tbkmm.hlp
tbkmmdevices
s_mmdevices
author
P*readdmm
readdmm
Multimedia
&Multimedia
checkdevice
isNumber
sized
txClassName
Repair 3D object after resizing?
recessed
recessed
3DFrame
3DField
3DRect
recessed
buttonDown
txClassName
Thumb
o "___setSliderLimits
buttonStillDown
txClassName
HSliderThumb
___slidePos
VSliderThumb
___slidePos
s___v
s___min
s___max
s___p
buttonUp
txClassName
HSliderThumb
sliderPosition
___slidePos
___snapSlider
VSliderThumb
sliderPosition
___slidePos
___snapSlider
s___v
s___min
s___max
s___p
___setSliderLimits
txClassName
HSliderThumb
txClassName
VSliderThumb
height
width
glide
s___v
s___min
s___max
___slidePos
sliderPosition
sliderPosition
group
txClassName
SliderThumb
o "___setSliderLimits
vSliderThumb
hSliderThumb
newPos
pOffset
OldMax
OldMin
thumb
s___min
s___max
___snapSlider
detentList
catchRange
detents
thumb
tbkmmInitializeSystem
mmsystem.dll
mmsystem
killtbkmmsbk
tbkmm.dll
tbkmmloadextensions
tbkmmversion
tbkmmerrorstring
tbkMCI
tbkTimerStart
tbkTimerStop
tbkTimerCapability
MilliSecFromMSF
MilliSecFromHMS
MilliSecFromSMPTE
MSFFromMilliSec
HMSFromMilliSec
SMPTEFromMilliSec
tbkMMTranslate
tbkGetWindowRect
tbkPositionWindow
tbkCenterWindow
TBKMM.DLL link failed
P*readdmm
tbkmmloadextensions
tbkmmerrorstring
s_mminit
s_mmdevices
tbkmmversion
DlgTitle
Multimedia System Book
DlgTitle
Multimedia System Book
author
killtbkmmsbk
"Microsoft Windows
fMultimedia
xpresent. No multimedia devices
widgets will work."
itemnum(
I tmplist
"Warning! Altering the
8may cause
applications
f"Proceed"
"Cancel"
kmmsbk
killtbkmmsbk
author
itemnum
killtbkmmsbk
Microsoft Windows with Multimedia is not present. No multimedia devices or widgets will work.
itemnum
itemnum
itemnum
tbkmm.sbk
tmplist
author
Warning! Altering the script for this system book may cause multimedia applications to break!
Proceed
Cancel
Proceed
1<LOf
OD<L<Lqf